From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 19 Apr 2010 13:05:35 +0000 (+0300)
Subject:  .gdbinit (xsubchartable): New command.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8107
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d90f9cfa638d785638f14efd3be40aab3821e1a1;p=emacs.git

 .gdbinit (xsubchartable): New command.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index b959baae8f3..32b3827b22d 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -889,6 +889,19 @@ Print the address of the char-table $, and its purpose.
 This command assumes that $ is an Emacs Lisp char-table value.
 end
 
+define xsubchartable
+  xgetptr $
+  print (struct Lisp_Sub_Char_Table *) $ptr
+  xgetint $->depth
+  set $depth = $int
+  xgetint $->min_char
+  printf "Depth: %d, Min char: %d (0x%x)\n", $depth, $int, $int
+end
+document xsubchartable
+Print the address of the sub-char-table $, its depth and min-char.
+This command assumes that $ is an Emacs Lisp sub-char-table value.
+end
+
 define xboolvector
   xgetptr $
   print (struct Lisp_Bool_Vector *) $ptr
diff --git a/src/ChangeLog b/src/ChangeLog
index 4f9adcb2a59..5e88cab62eb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2010-04-19  Eli Zaretskii  <eliz@gnu.org>
 
+	* .gdbinit (xsubchartable): New command.
+
 	* xdisp.c (display_line): Don't write beyond the last glyph row in
 	the desired matrix.  Fixes a crash in "emacs -nw", see
 	http://lists.gnu.org/archive/html/emacs-devel/2010-04/msg00075.html